home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 049b.dms / 049b.adf / andrew_smith_source / Fandraw.AMOS / Fandraw.amosSourceCode
AMOS Source Code  |  1992-02-26  |  419b  |  24 lines
  1. ' Anchor start point 
  2.  
  3. Do 
  4.    Repeat 
  5.       X1=X Screen(X Mouse)
  6.       Y1=Y Screen(Y Mouse)
  7.    Until Mouse Click=1
  8.    
  9.    Gr Writing 2
  10.    
  11.    Repeat 
  12.       X2=X Screen(X Mouse)
  13.       Y2=Y Screen(Y Mouse)
  14.       Draw X1,Y1 To X2,Y2
  15.       Wait Vbl 
  16.       Draw X1,Y1 To X2,Y2
  17.       If Mouse Key=1
  18.          Gr Writing 0
  19.          Draw X1,Y1 To X2,Y2
  20.          Gr Writing 2
  21.       End If 
  22.    Until Mouse Key=2
  23.    Plot X1,Y1
  24. Loop